home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / gui / iedit226.lha / Include / iconstartup.i next >
Text File  |  1995-12-18  |  699b  |  33 lines
  1.     include dos/dosextens.i
  2.  
  3.     movem.l    d0/a0,-(sp)
  4.     sub.l a1,a1
  5.     move.l  4,a6
  6.     jsr    _LVOFindTask(a6)
  7.     move.l    d0,a4
  8.     tst.l pr_CLI(a4)    ; was it called from CLI?
  9.     bne.s   fromCLI        ; if so, skip out this bit...
  10.     lea    pr_MsgPort(a4),a0
  11.     move.l  4,a6
  12.     jsr    _LVOWaitPort(A6)
  13.     lea    pr_MsgPort(a4),a0
  14.     jsr    _LVOGetMsg(A6)
  15.     move.l    d0,returnMsg
  16. fromCLI
  17.     movem.l    (sp)+,d0/a0
  18. go_program
  19.     bsr.s _main                 ; Calls your code..
  20.     move.l    d0,-(sp)
  21.     tst.l returnMsg        ; Is there a message?
  22.     beq.s exitToDOS        ; if not, skip...
  23.     move.l    4,a6
  24.           jsr _LVOForbid(a6)             ; note! No Permit needed!
  25.     move.l    returnMsg(pc),a1
  26.     jsr    _LVOReplyMsg(a6)
  27. exitToDOS
  28.     move.l    (sp)+,d0     ; exit code
  29.     rts
  30. returnMsg dc.l 0
  31.     even                ;(or cnop 0,2)
  32. _main
  33.